﻿! door_panel_E /modified by VL 3/1/94/
! internal macro: door_int_frame
! a=width, b=height, c=thickness, d= panel frame width,
! e=fill material
f=1"  ! internal frame width of fill

prism_ 22,c,
0,0,15,
0,b,15,
a,b,15,
a,0,15,
0,0,8,
d,d,15,
a/2-d/2,d,8,
a/2+d/2,d,15,
a-d,d,15,
a-d,b/2-d/2,15,
a/2+d/2,b/2-d/2,15,
a/2+d/2,d,8,
a/2-d/2,d,15,
a/2-d/2,b/2-d/2,15,
d,b/2-d/2,8,
a-d,b/2+d/2,15,
a-d,b-d,15,
d,b-d,15,
d,b/2+d/2,15,
a-d,b/2+d/2,8,
d,b/2-d/2,15,
d,d,8
addx d
addy d
addz c/4
call door_int_frame a/2-3*d/2,b/2-3*d/2,c/2, f
     gosub 1               !***fill#1
addx a/2-d/2
call door_int_frame a/2-3*d/2,b/2-3*d/2,c/2, f
     gosub 1               !***fill#1
del 1
addy b/2-d/2
call door_int_frame a-2*d,b/2-3*d/2,c/2, f
     gosub 2               !***fill#2

end

1: add f, f, c/8         ! ***fill#1 definition
    material e
    block a/2-3*d/2-2*f,b/2-3*d/2-2*f, 0.004
    material M_
    del 1
return                     ! ***fill#2 definition  
2: add f, f, c/8
    material e
    block a-2*(d+f),b/2-3*d/2-2*f, 0.004
    del 1
return

